Provide a default for xref-find-apropos pattern

* lisp/progmodes/xref.el (xref-find-apropos):
Provide a default for the pattern (bug#49731).

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 404752536f8050e3427f9f0c7941e79c968a2683..69378a561ea45d66eb29b7335ac944683e919c31 100644 (file)
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -1356,7 +1356,9 @@ This command is intended to be bound to a mouse event."
 The argument has the same meaning as in `apropos'."
   (interactive (list (read-string
                       "Search for pattern (word list or regexp): "
-                      nil 'xref--read-pattern-history)))
+                      nil 'xref--read-pattern-history
+                      (xref-backend-identifier-at-point
+                       (xref-find-backend)))))
   (require 'apropos)
   (let* ((newpat
           (if (and (version< emacs-version "28.0.50")